W mojej pracy domowej postanowiłem poprawić wykres z podręcznika do historii “Historia. Po prostu” wspomniany w plebiscycie na najgorszy wykres roku 2019.
df %>% gather("Status", "Value", -year) %>% ggplot(aes(year, Value, fill = Status)) +
geom_col(width = 0.7, position = position_dodge(width=0.7)) +
theme(axis.text.x = element_blank(), axis.ticks.x = element_blank())+
scale_fill_manual(values = c("#f03b20", "#feb24c")) +
geom_text(aes(y = Value+70, label = abs(Value))) +
geom_text(aes(y=50, label = year), size = 3) +
labs(title = "liczba bezrobotnych i zatrudnionych w latach 1929-36 w Polsce w tys.",
x="rok", y="liczba [tys.]")+
scale_y_continuous(expand = c(0,0), limits = c(0, 2600))
Za główne problem wykresu w podręczniku uważam rozbieżność skali pomiędzy bezrobotnymi i zatrudnionymi, oraz brak proporcjonalności wysokości słupków do odpowiadających im wartości. Uznałem również, że są to statystyki które ludzie chętnie będą porównywać, dobrze by było więc ustawić je jeden obok drugiego (zamiast po dwóch stronach osi OX), aby łatwiej można było porównywać zatrudnienie i bezrobocie, nie musząc odczytywać konkretnych wartości z wykresu.